object FormMain: TFormMain
  Left = 8
  Top = 8
  Width = 679
  Height = 525
  Caption = 'Demo for standard superstores_demo database'
  Color = clBtnFace
  Constraints.MinHeight = 354
  Constraints.MinWidth = 466
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  DesignSize = (
    671
    491)
  PixelsPerInch = 96
  TextHeight = 13
  object pageControl: TPageControl
    Left = 6
    Top = 6
    Width = 659
    Height = 485
    ActivePage = tabsheetConnection
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    TabStop = False
    object tabsheetConnection: TTabSheet
      Caption = 'Connection'
      DesignSize = (
        651
        457)
      object labelConnectionParameters: TLabel
        Left = 12
        Top = 12
        Width = 116
        Height = 13
        Caption = 'Connection &parameters:'
        FocusControl = memoConnectionParams
      end
      object labelUserName: TLabel
        Left = 12
        Top = 392
        Width = 55
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '&User name:'
        FocusControl = editUserName
      end
      object labelPassword: TLabel
        Left = 12
        Top = 422
        Width = 50
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = 'Pass&word:'
        FocusControl = editPassword
      end
      object labelDatabase: TLabel
        Left = 12
        Top = 362
        Width = 50
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = '&Database:'
        FocusControl = editDatabase
      end
      object labelServerVersion: TLabel
        Left = 568
        Top = 390
        Width = 70
        Height = 13
        Alignment = taRightJustify
        Caption = 'Not connected'
      end
      object memoConnectionParams: TMemo
        Left = 12
        Top = 30
        Width = 626
        Height = 313
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          'InformixServer=;'
          'Fet_Buf_Size=32767;'
          'OptOFC=1;'
          'AutoCommit=True;'
          'BlobSize=-1;'
          'WaitOnLocks=False;'
          'CommitRetain=False;'
          'IsolationLevel=ReadCommitted;'
          'Trim Char=True;'
          'lvarchar=string')
        TabOrder = 0
      end
      object buttonConnect: TButton
        Left = 485
        Top = 358
        Width = 75
        Height = 24
        Action = actionConnect
        Anchors = [akRight, akBottom]
        TabOrder = 4
      end
      object buttonDisconnect: TButton
        Left = 563
        Top = 358
        Width = 75
        Height = 24
        Action = actionDisconnect
        Anchors = [akRight, akBottom]
        TabOrder = 5
      end
      object editUserName: TEdit
        Left = 80
        Top = 388
        Width = 166
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 2
      end
      object editPassword: TEdit
        Left = 80
        Top = 418
        Width = 166
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 3
      end
      object editDatabase: TEdit
        Left = 80
        Top = 358
        Width = 166
        Height = 21
        Anchors = [akLeft, akBottom]
        TabOrder = 1
        Text = 'superstores_demo'
      end
    end
    object tabsheetCustomers: TTabSheet
      Caption = 'Customers'
      ImageIndex = 1
      DesignSize = (
        651
        457)
      object labelCustomerName: TLabel
        Left = 12
        Top = 63
        Width = 79
        Height = 13
        Caption = 'Customer &name:'
        FocusControl = memoCustomerName
      end
      object labelContactDates: TLabel
        Left = 12
        Top = 93
        Width = 72
        Height = 13
        Caption = 'Contact &dates:'
        FocusControl = memoContactDates
      end
      object bevelCustomer: TBevel
        Left = 0
        Top = 48
        Width = 650
        Height = 2
        Anchors = [akLeft, akTop, akRight]
        Shape = bsTopLine
      end
      object gridCustomer: TDBGrid
        Left = 12
        Top = 120
        Width = 626
        Height = 326
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = datasourceCustomer
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Color = clInactiveBorder
            Expanded = False
            FieldName = 'customer_num'
            ReadOnly = True
            Title.Caption = 'number'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'customer_type'
            Title.Caption = 'type'
            Width = 29
            Visible = True
          end
          item
            Color = clInactiveBorder
            Expanded = False
            FieldName = 'customername'
            Title.Caption = 'name'
            Width = 158
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'customer_loc'
            Title.Caption = 'location'
            Width = 57
            Visible = True
          end
          item
            Color = clInactiveBorder
            Expanded = False
            FieldName = 'contactdates'
            Title.Caption = 'contact dates'
            Width = 164
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cust_discount'
            Title.Caption = 'discount'
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'credit_status'
            Title.Caption = 'credit status'
            Visible = True
          end>
      end
      object memoCustomerName: TDBMemo
        Left = 102
        Top = 60
        Width = 535
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        DataField = 'customer_name'
        DataSource = datasourceCustomer
        TabOrder = 3
      end
      object memoContactDates: TDBMemo
        Left = 102
        Top = 90
        Width = 535
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        DataField = 'contact_dates'
        DataSource = datasourceCustomer
        TabOrder = 4
      end
      object dbnavigator: TDBNavigator
        Left = 168
        Top = 12
        Width = 240
        Height = 24
        DataSource = datasourceCustomer
        TabOrder = 2
      end
      object buttonOpen: TButton
        Left = 12
        Top = 12
        Width = 75
        Height = 24
        Action = actionOpen
        TabOrder = 0
      end
      object buttonClose: TButton
        Left = 90
        Top = 12
        Width = 75
        Height = 24
        Action = actionClose
        TabOrder = 1
      end
    end
  end
  object sqlConnection: TSQLConnection
    ConnectionName = 'InformixLuxenaConnection'
    DriverName = 'INFORMIXLUXENA'
    GetDriverFunc = 'getInformixDriver'
    LibraryName = 'lxdbexpinfpro.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=INFORMIXLUXENA'
      
        'HostName=InformixServer=; Fet_Buf_Size=32767; OptOFC=1; AutoComm' +
        'it=True; BlobSize=-1; WaitOnLocks=False; CommitRetain=False; Iso' +
        'lationLevel=ReadCommitted; Trim Char=True; lvarchar=string'
      'DataBase=superstores_demo'
      'User_Name='
      'Password=')
    VendorLib = 'isqlt09a.dll'
    Left = 41
    Top = 237
  end
  object actionList: TActionList
    OnUpdate = actionListUpdate
    Left = 77
    Top = 237
    object actionConnect: TAction
      Caption = '&Connect'
      OnExecute = actionConnectExecute
    end
    object actionDisconnect: TAction
      Caption = '&Disconnect'
      OnExecute = actionDisconnectExecute
    end
    object actionOpen: TAction
      Caption = '&Open'
      OnExecute = actionOpenExecute
    end
    object actionClose: TAction
      Caption = '&Close'
      OnExecute = actionCloseExecute
    end
  end
  object providerCustomer: TDataSetProvider
    DataSet = queryCustomer
    Constraints = True
    Options = [poPropogateChanges]
    UpdateMode = upWhereKeyOnly
    AfterUpdateRecord = providerCustomerAfterUpdateRecord
    Left = 77
    Top = 273
  end
  object datasetCustomer: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'providerCustomer'
    AfterPost = datasetCustomerApplyUpdates
    AfterDelete = datasetCustomerApplyUpdates
    OnCalcFields = datasetCustomerCalcFields
    OnReconcileError = datasetCustomerReconcileError
    Left = 113
    Top = 273
    object datasetCustomercustomer_num: TIntegerField
      FieldName = 'customer_num'
    end
    object datasetCustomercustomer_type: TStringField
      FieldName = 'customer_type'
      FixedChar = True
      Size = 1
    end
    object datasetCustomercustomer_name: TBlobField
      FieldName = 'customer_name'
      BlobType = ftFmtMemo
    end
    object datasetCustomercustomer_loc: TIntegerField
      FieldName = 'customer_loc'
    end
    object datasetCustomercontact_dates: TBlobField
      FieldName = 'contact_dates'
      BlobType = ftFmtMemo
    end
    object datasetCustomercust_discount: TFMTBCDField
      FieldName = 'cust_discount'
      Precision = 5
      Size = 5
    end
    object datasetCustomercredit_status: TStringField
      FieldName = 'credit_status'
      FixedChar = True
      Size = 1
    end
    object datasetCustomercustomername: TStringField
      FieldKind = fkCalculated
      FieldName = 'customername'
      Size = 100
      Calculated = True
    end
    object datasetCustomercontactdates: TStringField
      FieldKind = fkCalculated
      FieldName = 'contactdates'
      Size = 200
      Calculated = True
    end
  end
  object datasourceCustomer: TDataSource
    DataSet = datasetCustomer
    Left = 149
    Top = 273
  end
  object queryCustomer: TSQLQuery
    NoMetadata = True
    SQLConnection = sqlConnection
    Params = <>
    SQL.Strings = (
      'select * from customer')
    Left = 40
    Top = 272
    object queryCustomercustomer_num: TIntegerField
      FieldName = 'customer_num'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object queryCustomercustomer_type: TStringField
      FieldName = 'customer_type'
      FixedChar = True
      Size = 1
    end
    object queryCustomercustomer_name: TBlobField
      FieldName = 'customer_name'
      BlobType = ftFmtMemo
    end
    object queryCustomercustomer_loc: TIntegerField
      FieldName = 'customer_loc'
    end
    object queryCustomercontact_dates: TBlobField
      FieldName = 'contact_dates'
      BlobType = ftFmtMemo
    end
    object queryCustomercust_discount: TFMTBCDField
      FieldName = 'cust_discount'
      Precision = 5
      Size = 5
    end
    object queryCustomercredit_status: TStringField
      FieldName = 'credit_status'
      FixedChar = True
      Size = 1
    end
  end
end
